home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / anwend / anwe1057.d64 / idealgewicht (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  832b  |  30 lines
  1. 0 REM(null)
  2. 1 PRINT"[147]":POKE53280,0:POKE53281,0:PRINTCHR$(14)""
  3. 2 PRINT"      [196]IESE [208]ROGRAMM BERECHNET [201]HR":PRINT
  4. 3 PRINT"              [201]DEALGEWICHT":PRINT:PRINT:PRINT:PRINT
  5. 4 POKE19,64:INPUT"[201]HRE GROESSE IN [195][205] :";A%
  6. 5 IF A%=166  THEN X$="65.2"
  7. 6 IF A%=167  THEN X$="66.3"
  8. 7 IF A%=168  THEN X$="67.6"
  9. 8 IF A%=169  THEN X$="68.7"
  10. 9 IF A%=170  THEN X$="70.0"
  11. 11 IF A%=171  THEN X$="71.2"
  12. 12 IF A%=172  THEN X$="72.5"
  13. 13 IF A%=173  THEN X$="74.6"
  14. 14 IF A%=174  THEN X$="75.1"
  15. 15 IF A%=175  THEN X$="76.9"
  16. 16 IF A%=176  THEN X$="77.7"
  17. 17 IF A%=177  THEN X$="78.4"
  18. 18 IF A%=178  THEN X$="80.3"
  19. 19 IF A%=179  THEN X$="82.0"
  20. 20 IF A%=180  THEN X$="83.1"
  21. 21 IF A%=181  THEN X$="84.5"
  22. 22 IF A%=182  THEN X$="85.9"
  23. 23 IF A%=183  THEN X$="87.4"
  24. 24 IF A%=184  THEN X$="88.7"
  25. 25 IF A%=185  THEN X$="90.1"
  26. 26 IF A%=186  THEN X$="91.6"
  27. 27 :PRINT:PRINT:PRINT:PRINT:PRINT"[201]HR [201]DEALGEWICHT BETRAEGT ";X$;" [203][199]"
  28. 28 PRINT:PRINT"    BITTE DIE [204]EERTASTE [196]RUECKEN"
  29. 29 POKE198,.:WAIT198,1:RUN
  30.